Morosidad a 30 días de las laptops NO gamers, 2023
# barplot considerando todos: convenios y no convenios
moro <- df_clientes_morosos_30 %>%
ggplot(aes(x = IsGamer,
y = Percentage,
fill = IsGamer)) +
geom_bar(stat = "identity") +
geom_text(aes(label = Count),
position = position_stack(vjust = 0.5), size = 3) +
labs(
# title = "Morosos a 30 días, todos",
x = "Es Gamer",
y = "Count") +
theme_minimal()
ggplotly(moro)
# barplot considerando solo convenios
df_clientes_morosos_30_convenios <- df_clientes %>%
filter(
Solicitud %in% morosos_desde_30 &
!Source %in% not_convenios
) %>%
mutate(IsGamer = ifelse(Gama %in% c("Gama gamer", "Gama gamer accesible"), "Gamer", "Not Gamer")) %>%
group_by(IsGamer) %>%
summarise(Count = n()) %>%
mutate(Percentage = (Count / sum(Count)) * 100,
label = paste0(round(Percentage, 1), "%"))
### Morosidad a 30 días en unis de convenios
x <- df_clientes_morosos_30_convenios %>%
ggplot(aes(x = IsGamer,
y = Percentage
)) +
geom_bar(stat = "identity") +
geom_text(aes(label = Count),
position = position_stack(vjust = 0.5), size = 3) +
labs(
# title = "Morosos a 30 días en unis de convenio",
x = "Es Gamer",
y = "Porcentaje") +
theme_minimal()
ggplotly(x)
df_morosidad_convenios_y_no_convenios <- df_clientes %>%
mutate(
IsGamer = ifelse(Gama %in% c("Gama gamer", "Gama gamer accesible"), "Gamer", "Not Gamer"),
IsConvenio = ifelse(Source %in% not_convenios, "No es Convenio", "Es Convenio"),
EsMorosoA30 = ifelse(Solicitud %in% morosos_desde_30, "Moroso", "No Moroso")
)
df_morosidad_convenios_y_no_convenios <- df_morosidad_convenios_y_no_convenios %>%
count(IsConvenio, IsGamer, EsMorosoA30) %>%
mutate(
Percentage = round((n / sum(n)) * 100, 1)
)
df_morosidad_convenios_y_no_convenios
plot_morosidad <- ggplot(df_morosidad_convenios_y_no_convenios,
aes(x = IsGamer,
y = Percentage,
fill = EsMorosoA30)) +
geom_bar(stat = "identity", position = "dodge") +
facet_grid(IsConvenio ~ .,
scales = "free_y",
space = "free_y") +
labs(
title = "Morosidad de Laptops. Convenios vs No Convenios",
x = "Es Gamer",
y = "%") +
theme_minimal()
ggplotly(plot_morosidad)